(thai-consonant-input): Typo fixed.

diff --git a/leim/quail/thai.el b/leim/quail/thai.el
index b78fb3fa46c1a9c3dfce60e8ef0cf6c07b980f6c..d70ff14eff003fdfc4ddafe58346b83e9ad56540 100644 (file)
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -175,7 +175,8 @@ This variable is used in Quail internally only.")
   (let ((quail-package-name (quail-name)))
     (setq thai-current-keyboard-type
          (cond ((string= quail-package-name "thai-pattachote") 'pattachote)
-               (t (string= quail-package-name "thai-kesmanee") 'kesmanee)))
+               ((string= quail-package-name "thai-kesmanee") 'kesmanee)
+               (t (error "Invalid Quail package %s" quail-package-name))))
     (copy-alist (nth 2 (thai-keyboard-info thai-current-keyboard-type)))))
 \f
 ;; Thai Kesmanee keyboard support.